home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / ms_dos / nifhand / day.aut < prev    next >
Encoding:
Text File  |  1993-07-08  |  3.2 KB  |  122 lines
  1.  
  2. ;%937 : 年(西暦2ｹﾀ)
  3. ;%938 : 月
  4. ;%939 : 日     になっています。例に習って自分なりに設定してみてください。
  5.  
  6. ;「ＯＯまであとＸ日」というのを表示させたい時は以下のような設定をして下さい
  7. ;$1="第８６回医師国家試験発表"    ;「ＯＯ」のところに相当するものを記入
  8. ;%20=92                ;年(西暦2ｹﾀ)    -+
  9. ;%21=5                ;月        -+--「ＯＯ」のある年月日
  10. ;%22=12                ;日        -+
  11. ;CALL C_DOWN
  12.  
  13. $1="ぼくが決心したACTAの締切"
  14. %20=93
  15. %21=1
  16. %22=31
  17. CALL C_DOWN
  18.  
  19. ECHO "^G\r"
  20. IF %938==1 && %939==1
  21.  %1=%937-88
  22.  ECHO "明けましておめでとうございます   平成 %1 年元旦"
  23. ELSEIF %938==2 && %939==14
  24.  ECHO "Give me chocolate!!  進駐軍さま－  ｳｿｳｿ"
  25. ELSEIF %938==3 && %939==14
  26.  ECHO "おっと、MEKALINさんにプレゼントしなくっちゃ"
  27. ELSEIF %938==6 && %939==28
  28.  ECHO "MEKALINさん、お誕生日おめでとうございます"
  29. ELSEIF %938==7 && %939==7
  30.  ECHO "今日はタナボタ、じゃなくて七夕かぁ 晴れるといいけど･･･"
  31. ;ELSEIF %938==7 && %939==29
  32. ; %1=%937-67
  33. ; ECHO "おおっ、今日はおいらの %1 才の誕生日だ！！"
  34. ELSEIF %938==8 && %939==6
  35.  %1=%937-45
  36.  ECHO "今日は %1 回目の広島原爆の日･･･"
  37. ELSEIF %938==8 && %939==9
  38.  %1=%937-45
  39.  ECHO "今日は %1 回目の長崎原爆の日･･･"
  40. ELSEIF %938==8 && %939==12
  41.  %1=%937-85
  42.  ECHO " %1 年前の今日、日航機墜落事故･･･(群馬県･御巣鷹の尾根)"
  43. ELSEIF %938==8 && %939==15
  44.  %1=%937-45
  45.  ECHO "今日は %1 回目の終戦の日、平和がなによりですね"
  46. ELSEIF %938==9 && %939==1
  47.  ECHO "天災は忘れた頃にやって来る  気をつけようね"
  48. ELSEIF %938==10 && %939==10
  49.  ECHO "おーい、今日は体育の日だぞー、いい汗流そうぜ！！"
  50. ELSEIF %938==10 && %939==23
  51.  %1=%937-91
  52.  ECHO "祝秋篠宮眞子さまの %1才 のご誕生日"
  53. ELSEIF %938==12 && %939==13
  54.  %1=%937-92
  55.  ECHO "中川 麻子さんの %1回目 の命日････合掌･･"
  56. ELSEIF %938==12 && %939==24
  57.  ECHO "メリークリスマス！！  プレゼントもらえるかな？"
  58. ELSEIF %938==12 && %939==31
  59.  ECHO "今年ももう終わり･･･ よいお年をお迎え下さい"
  60. ELSE
  61.  ECHO "今日は何の日？ DAY.AUTを色々設定して活用しよう！"
  62. ENDIF
  63. ECHO "\r\r"
  64. END
  65.  
  66. PROC C_DOWN
  67. %13=0
  68. WHILE %13<12    ;%1 から %12 まで 初期化
  69. %13=%13+1
  70. %[%13]=0
  71. ENDWHILE
  72.  
  73. %13=0
  74. WHILE %21>(%13+1)    ;設定日をその年の元旦から数えた日数(%14)
  75. %13=%13+1
  76. %[%13]=1
  77. ENDWHILE
  78. %14=%1*31+%2*28+%3*31+%4*30+%5*31+%6*30+%7*31+%8*31+%9*30+%10*31+%11*30+%12*31+%22
  79.  
  80. %13=0
  81. WHILE %13<12    ;%1 から %12 まで 初期化
  82. %13=%13+1
  83. %[%13]=0
  84. ENDWHILE
  85.  
  86. %13=0
  87. WHILE %938>(%13+1)    ;アクセス日をその年の元旦から数えた日数(%15)
  88. %13=%13+1
  89. %[%13]=1
  90. ENDWHILE
  91. %15=%1*31+%2*28+%3*31+%4*30+%5*31+%6*30+%7*31+%8*31+%9*30+%10*31+%11*30+%12*31+%939
  92.  
  93. %13=12*(%20-91)+%21        ;設定日を1991.1 より起算した月数
  94. IF %13<=14            ;'92.2まで
  95.  %17=0
  96. ELSEIF %13>14 && %13<=62    ;'92.3から'96.2まで
  97.  %17=1
  98. ELSEIF %13>62 && %13<=110    ;'96.3から'00.2まで
  99.  %17=2
  100. ENDIF
  101.  
  102. %13=12*(%937-91)+%938        ;アクセス日を1991.1 より起算した月数
  103. IF %13<=14
  104.  %18=0
  105. ELSEIF %13>14 && %13<=62
  106.  %18=1
  107. ELSEIF %13>62 && %13<=110
  108.  %18=2
  109. ENDIF
  110.  
  111. %14=%14+%17    ;閏年補正
  112. %15=%15+%18
  113.  
  114. IF (365*(%20-%937)+%14-%15) > 0 && $1!=""
  115.  %18=365*(%20-%937)+%14-%15
  116.  ECHO "\r^G$1まで あと %18 日\r"
  117. ELSEIF (365*(%20-%937)+%14-%15)==0
  118.  ECHO "\r^Gぎょぎょっ！ 今日は $1 の日じゃないか！！\r"
  119. ENDIF
  120. ENDPROC
  121.  
  122.